home *** CD-ROM | disk | FTP | other *** search
/ The Macintosh Demo Applications CD / Apple-MacintoshDemoApplicationsCD-1.0-1992.bin / More Information / Personal Press 2.0 / PPPouch / AutoCreate / Business ID / _Facsimile NewWave / _Facsimile NewWave next >
Text File  |  1992-06-08  |  9KB  |  2 lines

  1. on Buildset lockscreen to trueSet ShuffleTextObjects to falseset measurements to pointsnewpublication pages 1 columns 0 PageWidth 612 PageHeight 792 pageorientation portrait topmargin 36 bottommargin 36 leftmargin 36 rightmargin 36set gridsettings to 18,18set displayguides to falseset displayinvisibles to falseset displaynotes to trueset facingpages to falseset displaycolorsepcutouts to falseset gridsnap to falseset lockguides to falseset magneticguides to trueset menuhelp to trueset printcoloroptions to falseset printcolornames to trueset printcutouts to trueset printregistrationmarks to falseset showgraphics to trueset showgrid to falseset shownoteheaderdate to trueset shownoteheadertext to trueset shownoteheadertime to trueset smartquotes to trueset dialogupdatedelay to normalset drawingtoolpreference to toolSelectedset guidespreference to frontset numberformat to 0.######set palettepreference to anywhereset printmarksoptions to noset printpageoptions to allset printtypeoptions to publicationset view to sizeToFitset itemdel to ","set worddel to " "set linedel to crset graphicresizepreferences to 300set savepubreminder to 15set spotcolor 1 to 0,0,0set spotcolor 2 to 65535,65535,65535set spotcolor 3 to 62167,2134,34028set spotcolor 4 to 0,32768,4528set spotcolor 5 to 577,43860,60159set spotcolor 6 to 56683,2242,1698set spotcolor 7 to 0,0,54272set spotcolor 8 to 64512,62333,1327set linepattern to 1set fillpattern to 2set color to 1set framelinetype to 1-- •object 1•draw Line 51,117,144,117set locked of last object to trueset framelinetype of last object to 2set framelinetype to 2set fillpattern of last object to 2set fillpattern to 2-- •object 2•draw Rectangle 30,36,140,106set linepattern of last object to 0set linepattern to 0set croprectangle of last object to 0,0,110,70-- •object 3•open story "Address"draw rectangle 48,128,134,313close storyset locked of last object to trueset croprectangle of last object to 0,0,86,185-- •object 4•draw Line 157,274,573,274set locked of last object to trueset linepattern of last object to 1set linepattern to 1-- •object 5•draw Line 160,117,282,117set locked of last object to true-- •object 6•open story "Title Fax"draw rectangle 158,81,576,116close storyset locked of last object to trueset linepattern of last object to 0set linepattern to 0set croprectangle of last object to 0,0,418,35-- •object 7•open story "Title Pages"draw rectangle 158,281,452,314close storyset locked of last object to trueset croprectangle of last object to 0,0,294,33-- •object 8•draw Line 49,318,575,318set locked of last object to trueset linepattern of last object to 1set linepattern to 1-- •object 9•open story "Place message here or Add Pages."draw rectangle 49,355,580,637close storyset linepattern of last object to 0set linepattern to 0set croprectangle of last object to 0,0,531,282-- •object 10•draw Line 50,355,575,355set locked of last object to trueset linepattern of last object to 1set linepattern to 1-- •object 11•draw Line 49,392,575,392set locked of last object to true-- •object 12•draw Line 49,428,575,428set locked of last object to true-- •object 13•draw Line 49,464,575,464set locked of last object to true-- •object 14•draw Line 49,500,576,500set locked of last object to true-- •object 15•draw Line 49,536,575,536set locked of last object to true-- •object 16•draw Line 49,572,576,572set locked of last object to true-- •object 17•draw Line 49,608,576,608set locked of last object to true-- •object 18•draw Line 48,644,575,644set locked of last object to true-- •object 19•draw Line 158,718,406,718set locked of last object to true-- •object 20•open story "Title Signature"draw rectangle 157,725,353,749close storyset locked of last object to trueset linepattern of last object to 0set linepattern to 0set croprectangle of last object to 0,0,196,24-- •object 21•open story "Title Message"draw rectangle 49,330,158,354close storyset locked of last object to trueset croprectangle of last object to 0,0,109,24-- •object 22•open story "Title to Fax"draw rectangle 158,130,214,152close storyset locked of last object to trueset croprectangle of last object to 0,0,56,22-- •object 23•open story "Title To Company"draw rectangle 158,162,234,185close storyset locked of last object to trueset croprectangle of last object to 0,0,76,23-- •object 24•open story "Title Attention"draw rectangle 158,194,234,217close storyset locked of last object to trueset croprectangle of last object to 0,0,76,23-- •object 25•open story "Title From"draw rectangle 158,226,234,249close storyset locked of last object to trueset croprectangle of last object to 0,0,76,23-- •object 26•open story "Title Date Sent"draw rectangle 440,130,496,152close storyset locked of last object to trueset croprectangle of last object to 0,0,56,22-- •object 27•open story "Title Time Sent"draw rectangle 440,162,498,185close storyset locked of last object to trueset croprectangle of last object to 0,0,58,23-- •object 28•open story "Title Urgent"draw rectangle 440,194,499,217close storyset locked of last object to trueset croprectangle of last object to 0,0,59,23-- •object 29•open story "Title From Fax"draw rectangle 440,226,499,249close storyset locked of last object to trueset croprectangle of last object to 0,0,59,23-- •object 30•open story "Fax Number"draw rectangle 231,130,430,152close storyset locked of last object to trueset croprectangle of last object to 0,0,199,22-- •object 31•open story "To Company"draw rectangle 231,162,430,184close storyset locked of last object to trueset croprectangle of last object to 0,0,199,22-- •object 32•open story "Attention"draw rectangle 236,194,430,216close storyset locked of last object to trueset croprectangle of last object to 0,0,194,22-- •object 33•open story "From"draw rectangle 236,226,430,248close storyset locked of last object to trueset croprectangle of last object to 0,0,194,22-- •object 34•open story "Date Sent"draw rectangle 497,130,603,152close storyset locked of last object to trueset croprectangle of last object to 0,0,106,22-- •object 35•open story "Time Sent"draw rectangle 498,162,604,184close storyset locked of last object to trueset croprectangle of last object to 0,0,106,22-- •object 36•open story "Urgent"draw rectangle 499,194,605,216close storyset locked of last object to trueset croprectangle of last object to 0,0,106,22-- •object 37•open story "From Fax"draw rectangle 499,226,605,248close storyset locked of last object to trueset croprectangle of last object to 0,0,106,22-- •object 38•open story "Number of Pages"draw rectangle 453,281,559,303close storyset locked of last object to trueset croprectangle of last object to 0,0,106,22PublicationSetup columns 1-- unique stuffput "Fax Cover Sheet" into story "Title Fax"select all text in story "Title Fax"set textfont to Helveticaset textface to bold, italicput "Total Number of Pages:" into story "Title Pages"select all text in story "Title Pages"set textfont to Helveticaset textface to italicput "Signature" into story "Title Signature"select all text in story "Title Signature"set textfont to Helveticaset textface to italicput "Message:" into story "Title Message"select all text in story "Title Message"set textfont to Helveticaset textface to italicput "To Fax:" into story "Title to Fax"select all text in story "Title to Fax"set textfont to Helveticaset textface to italicput "To Company:" into story "Title To Company"select all text in story "Title To Company"set textfont to Helveticaset textface to italicput "Attention:" into story "Title Attention"select all text in story "Title Attention"set textfont to Helveticaset textface to italicput "From:" into story "Title From"select all text in story "Title From"set textfont to Helveticaset textface to italicput "Date Sent:" into story "Title Date Sent"select all text in story "Title Date Sent"set textfont to Helveticaset textface to italicput "Time Sent:" into story "Title Time Sent"select all text in story "Title Time Sent"set textfont to Helveticaset textface to italicput "Urgent:" into story "Title Urgent"select all text in story "Title Urgent"set textfont to Helveticaset textface to italicput "From Fax:" into story "Title From Fax"select all text in story "Title From Fax"set textfont to Helveticaset textface to italicend Build    ¥
  2. ~<BÏ